Spiceworld The Movie - Interactive CD-ROM/Spiceworld The Movie: Interactive CD-ROM.iso/mac/ELEMENTS/spiceone.dir/00001_Script_1

Text File | 1997-12-04 | 2KB | 55 lines

-- MAIN MOVIE SCRIPTS
-- all the following scripts are © Empire design 1997 all rights reserved

on startMovie
  global VIDVOLUME
  put 250 into VIDVOLUME
  set the soundLevel to 6
end

on stopMovie
  repeat with x = 1 to 120
    set the visible of sprite x to true
    updateStage
  end repeat
  clearGlobals
end

on doButton
  put the memberNum of sprite(the clickOn) into outBtnNo
  put outBtnNo + 1 into inBtnNo
  repeat while the mouseDown
    if rollover(the clickOn) then set the memberNum of sprite (the clickOn) to inBtnNo
    else set the memberNum of sprite (the clickOn) to outBtnNo
    upDateStage
  end repeat
  put rollover(the clickOn) into btnState
  set the memberNum of sprite (the clickOn) to outBtnNo
  upDateStage
  return btnState
end

on adjustVideoVol
  global VIDVOLUME -- ï needs setting up and carrying around
  repeat while the mouseDown
    put max(185,(min(290,the mouseV))) into theVLoc
    set the locV of sprite (the clickOn) to theVLoc
    put ((290 - theVLoc) * 256)/105 into VIDVOLUME
    set the volume of sprite 6 to VIDVOLUME
    updateStage
  end repeat
end

on initialiseFrame
  global LOOPFRAME,STANDARDCURSOR
  put the frameLabel into LOOPFRAME
  repeat with spriteNo = 1 to 120
    set the visible of sprite spriteNo to true
  end repeat
  set the visible of sprite 52 to false -- ?
  set the visible of sprite 53 to false -- !
  set the visible of sprite 71 to false --ïïdan
  set the visible of sprite 72 to false --ïïdan
  updateStage
  cursor STANDARDCURSOR
end